﻿Public Class ucUsuarios

    Private Sub btnAlta_Click(sender As Object, e As EventArgs) Handles btnAlta.Click

        Dim f As New frmUsuarioAlta
        f.ShowDialog(Me)


        'Actualizo grilla
        'mnuPrincipal.btnUsuarios_Click(sender, e) Esto no actualizaba por cuestiones de User Control
        cn.LlenarGrilla(varUcUsuarios.dgvUsuarios, sqlConsulta)

    End Sub

    Private Sub btnModificacion_Click(sender As Object, e As EventArgs) Handles btnModificacion.Click

        Dim f As New frmUsuarioModificacion
        f.ShowDialog(Me)


        'Actualizo grilla
        'mnuPrincipal.btnUsuarios_Click(sender, e) Esto no actualizaba por cuestiones de User Control
        cn.LlenarGrilla(varUcUsuarios.dgvUsuarios, sqlConsulta)

    End Sub

    Private Sub btnEliminar_Click(sender As Object, e As EventArgs) Handles btnEliminar.Click

        Try

            'Si el usuario no es Admin entonces no permito ingresar
            If varIdUsuarioSistema <> 1 Then
                MsgBox("No tiene permisos", vbOKOnly + vbExclamation, "Atención")
                Exit Sub
            End If

            'Si selecciono NO salgo
            If MsgBox("¿Desea eliminar el usuario seleccionado?", vbYesNo + vbExclamation, "Atención") = vbNo Then
                Exit Sub
            End If

            sql = "UPDATE users SET Activo=0 WHERE id=" & varUcUsuarios.dgvUsuarios.SelectedRows(0).Cells("id").Value
            Dim cmd As New MySql.Data.MySqlClient.MySqlCommand(sql)

            cn.ExecNonQuery(cmd)

            DatosGuardadosCorrectamente()

            'Actualizo grilla
            cn.LlenarGrilla(varUcUsuarios.dgvUsuarios, sqlConsulta)

        Catch ex As Exception
            MensajeError()
        End Try

    End Sub
End Class
